Dim fso,currentDir
set fso = CreateObject("Scripting.FileSystemObject")
extentName = fso.GetExtensionName("vbsa.668")
msgbox "extentName=" & extentName